home *** CD-ROM | disk | FTP | other *** search
/ Amiga Collections: Franz PD / Franz PD Disk #176 (1992)(Rhein-Sieg-Soft).zip / Franz PD Disk #176 (1992)(Rhein-Sieg-Soft).adf / ROMA-AMIGA / Lader (.txt) < prev    next >
AmigaBASIC Source Code  |  1992-06-14  |  2KB  |  92 lines
  1. DIM z1%(83),z2%(83)
  2. SCREEN 1,320,200,4,1
  3. WINDOW 3,"Roma Amiga  © 1989 by A.Neumann",,16,1
  4. PALETTE 0,0,0,0
  5. PALETTE 1,1,1,1
  6. PALETTE 2,1,1,1
  7. COLOR 2,0
  8. FOR b=1 TO 13
  9.  READ a$:LOCATE 10,INT(20-(LEN(a$)/2))
  10.  PRINT a$
  11.  FOR a=1 TO 200:NEXT a
  12.  xmin%=INT(19-(LEN(a$)/2))*8
  13.  READ effekt:ON effekt GOSUB 1,2,3,4
  14.  IF INKEY$<>"" OR MOUSE(0)<>0 THEN b=13
  15. NEXT b
  16. CLS
  17. PRINT "Wollen Sie die Highscoreliste"
  18. PRINT "`Cs` erstellen ?"
  19. a$=""
  20. WHILE a$<>"j" AND a$<>"n":a$=INKEY$:WEND
  21. IF a$="j" THEN
  22.  OPEN "Cs" FOR OUTPUT AS #2
  23.  PRINT#2,"Der alte Julius"
  24.  CLOSE#2
  25. END IF
  26. CLEAR,60000,20000
  27. RESTORE Menue:
  28. FOR a=1 TO 3:READ c
  29.  FOR b=0 TO c:READ a$:MENU a,b,1,a$:NEXT b
  30. NEXT a
  31. MENU 4,0,1,""
  32. FOR a=0 TO 15:PALETTE a,0,0,0:NEXT a
  33. MENU ON
  34. CHAIN "Roma"
  35. DATA "Neudelsoft proudly presents"
  36. DATA 1
  37. DATA "The Amiga Version of"
  38. DATA 3
  39. DATA "an old 64er Game",3
  40. DATA "- - - R O M A - - -",2
  41. DATA "programmed by A.Neumann",4
  42. DATA "Graphics by",1
  43. DATA "NEUDELSOFT",2
  44. DATA "Greetings to :",4
  45. DATA "Holger Franz, Nils Kassube ,",1
  46. DATA "Danny , Kaka , Swertz ,",2
  47. DATA "Tobi , Bella , Julia , Wortis ,",1
  48. DATA "Hartmann , Robert , G.F.",4
  49. DATA "and the whole 11 a",3
  50. Menue:
  51. DATA 3,"Roma"
  52. DATA "----","die Umsetzung","vom C - 64"
  53. DATA 4,"© 1989"
  54. DATA "by NEUDELSOFT","written by","Andreas","Neumann"
  55. DATA 2,"Viel Spaß !"
  56. DATA "und keine","Panic !!!"
  57. 4 :
  58. FOR c=1 TO 10
  59. FOR a=0 TO 3
  60.  GET (0,72+a)-(310,72+a),z1%
  61.  GET (0,80-a)-(310,80-a),z2%
  62.  PUT (0,72+a),z2%,PSET
  63.  PUT (0,80-a),z1%,PSET
  64. NEXT a
  65. FOR a=1 TO 200:NEXT a
  66. NEXT c
  67. LINE (0,72)-(310,80),0,bf:RETURN
  68. 3 :
  69. FOR a=100 TO 0 STEP-1
  70.  PALETTE 2,(a/100),(a/100),(a/100)
  71.  FOR c=1 TO 10:NEXT c
  72. NEXT a
  73. LINE (0,72)-(310,80),0,bf:PALETTE 2,1,1,1:RETURN
  74. 2 :
  75. FOR a=300 TO 700 STEP 5
  76. FOR c=0 TO 3
  77.  SOUND a,1,200,c
  78. NEXT c
  79. NEXT a
  80. FOR a=0 TO 155
  81.  LINE (a,72)-(a,80),0
  82.  LINE (310-a,72)-(310-a,80),0
  83. NEXT a:RETURN
  84. 1 :
  85. FOR a=1 TO 500
  86.  rand%=2*(155-xmin%)*RND
  87.  rand2%=72+8*RND
  88.  LINE (xmin%+rand%,rand2%)-(xmin%+rand%+2,rand2%+2),0,bf
  89. NEXT a
  90. LINE (0,72)-(310,80),0,bf
  91. RETURN
  92.